home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / MYSTART.M < prev    next >
Encoding:
Text File  |  1989-09-17  |  449 b   |  24 lines
  1. MODULE MYSTART;
  2.  
  3. IMPORT GEMEnv, AESMisc;
  4.  
  5. VAR handle: GEMEnv.DeviceHandle;
  6.     ok: BOOLEAN;
  7.  
  8. BEGIN
  9.   ASSEMBLER
  10.         PEA     r(PC)
  11.         MOVE    #38,-(A7)
  12.         TRAP    #14
  13.         ADDQ.L  #6,A7
  14.         BRA     cont
  15.       r CLR     $446
  16.         RTS
  17.       cont
  18.   END;
  19.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  20.   IF NOT ok THEN HALT END;
  21.   AESMisc.ShellWrite (TRUE, AESMisc.graphicPrgm, 'STARTTOS.PRG', '');
  22. END MYSTART.
  23.  
  24.